Apple II Magazines (DO)

home *** CD-ROM | disk | FTP | other *** search

/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 02 (1982-10)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 02 (1982-10)(Softdisk)(Side B).do / TEXT.OTHELLO.bas < prev next >

Wrap

BASIC Source File | 1996-12-24 | 7KB | 294 lines

120 DIM A(20,20),I4(8),J4(8),C$(8),D$(2) 125 DIM X$(10) 130 TEXT : HOME : VTAB 10: HTAB 5 140 PRINT "GREETINGS FROM OTHELLO": PRINT : PRINT 150 PRINT "DO YOU WANT INSTRUCTIONS (Y OR N) "; 160 INPUT X$ 170 IF X$ = "N" THEN 390 180 IF X$ < >"Y" THEN 160 190 HOME 200 PRINT "OTHELLO IS PLAYED ON AN 8 X 8 CHECKER BOARD." 210 PRINT : PRINT "ROWS NUMBERED 1 TO 8 AND COLUMNS A TO H" 220 PRINT : PRINT "THE INITIAL CONFIGURATION IS BLANK," 230 PRINT "EXCEPT FOR THE FOUR CENTER SQUARES," 235 PRINT "WHICH FORM THE PATTERN...": PRINT 250 PRINT " 0 X" 260 PRINT " X O" 270 PRINT : PRINT "HIT ANY KEY TO CONTINUE";: GET A$ 275 HOME 280 PRINT "TRY TO PLACE YOUR PIECE SO THAT IT": PRINT "OUTFLANKS MINE." 290 PRINT : PRINT "CREATING A HORIZONTAL, VERTICAL, OR" 300 PRINT "DIAGONAL RUN OF MY PIECES BOUNDED ON" 310 PRINT "EACH END BY AT LEAST ONE OF YOURS." 320 PRINT : PRINT "THIS WILL FLIP MY PIECES,": PRINT "TURNING THEM INTO YOURS." 330 PRINT : PRINT "NOTE: YOU MUST CAPTURE AT LEAST ONE OF" 340 PRINT "MY PIECES IN THIS WAY IF IT IS AT ALL": PRINT "POSSIBLE." 350 PRINT : PRINT "IF IT IS NOT POSSIBLE, YOU FORFEIT YOUR" 360 PRINT "TURN BY ENTERING 0,0 FOR YOUR (ROW,COL) MOVE." 370 PRINT : PRINT "HIT ANY KEY TO CONTINUE";: GET A$ 390 HOME : VTAB 6: PRINT "I TAKE SEVERAL SECONDS TO MAKE MY MOVE.": VTAB 8: PRINT "SHOULD I WAIT BEFORE MAKING MY MOVES": PRINT "(Y OR N)"; 400 F2 = 0 410 INPUT X$ 420 IF X$ = "N" THEN 460 430 IF X$ < >"Y" THEN 410 440 F2 = 1 460 PRINT : PRINT "SHOULD I PLAY MY BEST STRATEGY": PRINT "(Y OR N) "; 470 S2 = 0 480 INPUT X$ 490 IF X$ = "N" THEN 520 500 IF X$ < >"Y" THEN 480 510 S2 = 2 520 B = -1 530 W = +1 540 D$(B +1) = "X" 550 D$(O +1) = "." 560 D$(W +1) = "O" 570 FOR K = 1 TO 8 580 READ I4(K) 590 NEXT K 600 DATA 0,-1,-1,-1,0,1,1,1 610 FOR K = 1 TO 8 620 READ J4(K) 630 NEXT K 640 DATA 1,1,0,-1,-1,-1,0,1 650 FOR K = 1 TO 8 660 READ C$(K) 670 NEXT K 680 DATA A,B,C,D,E,F,G,H 690 I = 1 700 REM 710 FOR J = O TO 9 720 A(I,J) = 0 730 NEXT J 740 I = I +1: IF I <10 THEN 700 750 A(4,4) = W 760 A(5,5) = W 770 A(4,5) = B 780 A(5,4) = B 790 C1 = 2 800 H1 = 2 810 N1 = 4 820 Z = 0 830 REM HUMANS CHOICES 840 PRINT "DO YOU WANT TO HAVE X OR O"; 850 C = W 860 H = B 870 INPUT X$ 880 IF X$ = "X" THEN 920 890 IF X$ < >"O" THEN 870 900 C = B 910 H = W 920 PRINT "DO YOU WANT TO GO FIRST (Y OR N)"; 930 INPUT X$ 940 IF X$ = "N" THEN 1020 950 IF X$ < >"Y" THEN 930 960 REM PRINT INITIAL BOARD 970 GOSUB 3100 980 GOTO 1690 990 REM COMPUTERS MOVE 1000 IF F2 = 0 THEN 1020 1010 INPUT X$ 1020 B1 = -1 1030 I3 = 0:J3 = 0 1040 T1 = C 1050 T2 = H 1060 REM SCAN FOR BLANK SQUARE 1065 I = 1 1070 REM 1080 FOR J = 1 TO 8 1090 IF A(I,J) < >0 THEN 1380 1100 REM FOUND A BLANK SQUARE 1110 REM DOES IT HAVE AN OPPONENT AS A NEIGHBOR? 1120 GOSUB 2620 1130 IF F1 = 0 THEN 1380 1140 REM FOUND AN OPPONENT OR A NEIGHBOR 1150 REM HOW MANY PIECES CAN WE FLIP? 1160 REM (DON'T DO IT NOW) 1170 U = -1 1180 GOSUB 2820 1190 REM EXTRA POINTS FOR BOUNDRY POSITION 1200 IF S1 = 0 THEN 1380 1210 IF (I -1) *(I -8) < >0 THEN 1230 1220 S1 = S1 +S2 1230 IF (J -1) *(J -8) < >0 THEN 1260 1240 S1 = S1 +S2 1250 REM IS THIS BETTER THAN THE BEST SO FAR 1260 IF S1 <B1 THEN 1380 1270 IF S1 >B1 THEN 1340 1280 REM A TIE; RANDOM DECISION 1290 REM THE NEXT EXECUTABLE STATEMENT CAN BE DELETED 1310 R = RND(1) 1320 IF R >.5 THEN 1380 1340 B1 = S1 1350 I3 = I 1360 J3 = J 1380 NEXT J 1390 I = I +1: IF I <9 THEN 1070 1410 IF B1 >0 THEN 1480 1430 PRINT "I HAVE TO FORFEIT MY MOVE" 1440 IF Z = 1 THEN 2190 1450 Z = 1 1460 GOTO 1690 1470 REM MAKE THE MOVE 1480 Z = 0 1490 PRINT "I WILL MOVE TO "; 1500 PRINT I3; 1510 PRINT ", "; 1520 PRINT C$(J3) 1530 I = I3 1540 J = J3 1550 U = 1 1560 GOSUB 2820 1570 C1 = C1 +S1 +1 1580 H1 = H1 -S1 1590 N1 = N1 +1 1600 PRINT "THAT GIVES ME "; 1610 PRINT S1; 1620 PRINT " OF YOUR PIECES" 1630 REM PRINT OUT BOARD 1640 GOSUB 3100 1650 REM TEST FOR END OF GAME 1660 IF H1 = 0 THEN 2190 1670 IF N1 = 64 THEN 2190 1680 REM HUMAN'S MOVE 1690 T1 = H 1700 T2 = C 1710 PRINT "YOUR MOVE -- (ROW,COL) "; 1720 INPUT I,X$ 1730 IF I <0 THEN 1720 1740 IF I >8 THEN 1720 1750 IF I < >0 THEN 1820 1760 PRINT "ARE YOU FORFETRING YOUR TURN (Y OR N) "; 1770 INPUT X$ 1780 IF X$ < >"Y" THEN 1710 1790 IF Z = 1 THEN 2190 1800 Z = 1 1810 GOTO 1000 1820 FOR J = 1 TO 8 1830 IF C$(J) = X$ THEN 1870 1840 NEXT J 1850 GOTO 1720 1860 REM CHECK IF BLANK 1870 IF A(I,J) = 0 THEN 1910 1880 PRINT "SORRY, THAT SQUARE IS OCCUPIED; TRY AGAIN" 1890 GOTO 1720 1900 REM CHECK FOR LEGAL NEIGHBOR 1910 GOSUB 2620 1920 IF F1 = 1 THEN 1970 1930 PRINT "SORRY, YOU ARE NOT NEXT TO ONE OF MY PIECES;" 1940 PRINT " TRY AGAIN" 1950 GOTO 1720 1960 REM CHECK IF LEGAL RUN 1970 U = -1 1980 GOSUB 2820 1990 IF S1 >0 THEN 2030 2000 PRINT "SORRY, THAT DOESN'T FLANK A ROW; TRY AGAIN" 2010 GOTO 1720 2020 REM EVERYTHING LEGAL MAKE HMAN'S MOVE 2030 Z = 0 2040 PRINT "THAT GIVES YOU "; 2050 PRINT S1; 2060 PRINT " OF MY PIECES" 2070 U = 1 2080 GOSUB 2820 2090 H1 = H1 +S1 +1 2100 C1 = C1 -S1 2110 N1 = N1 +1 2120 REM PRINT OUT BOARD 2130 GOSUB 3100 2140 REM TEST FOR END OF GAME 2150 IF C1 = 0 THEN 2190 2160 IF N1 = 64 THEN 2190 2170 GOTO 1000 2180 REM END OF GAME WRAPUP 2190 PRINT 2200 PRINT "YOU HAVE "; 2210 PRINT H1; 2220 PRINT " PIECES AND I HAVE "; 2230 PRINT C1 2240 PRINT " PIECES--" 2250 IF H1 = C1 THEN 2290 2260 IF H1 >C1 THEN 2310 2270 PRINT "SORRY, I WON TAHT ONE." 2280 GOTO 2320 2290 PRINT "A TIE !!" 2300 GOTO 2500 2310 PRINT "YOU WON IT!!!" 2320 C1 = C1 -H1 2330 IF C1 >0 THEN 2350<CTRL-A><CTRL-L>@$<CTRL-I>C1 = -C1 2350 C1 = (64 *C1)/N1 2360 PRINT "THAT WAS A "; 2370 IF C1 <11 THEN 2490 2380 IF C1 <25 THEN 2470 2390 IF C1 <39 THEN 2450 2400 IF C1 <53 THEN 2430 2410 PRINT "PERFECT GAME" 2420 GOTO 2500 2430 PRINT "WALKAWAY" 2440 GOTO 2500 2450 PRINT "FIGHT" 2460 GOTO 2500 2470 PRINT "HOT GAME !" 2480 GOTO 2500 2490 PRINT " A SQUEEKER !!" 2500 PRINT 2510 PRINT "DO YOU WANT TO PLAY ANOTHER GAME (Y OR N) "; 2520 INPUT X$ 2530 IF X$ = "Y" THEN GOTO 690 2540 IF X$ < >"N" THEN 2520 2550 PRINT "THANKS FOR PLAYING" 2560 END 2620 FOR I1 = -1 TO 1 2630 FOR J1 = -1 TO 1 2640 IF A(I +I1,J +J1) = T2 THEN 2710 2650 NEXT J1 2660 NEXT I1 2670 REM NO T2 FOUND FAILURE 2680 F1 = 0 2690 RETURN 2700 REM SUCCESS 2710 F1 = 1 2720 RETURN 2730 REM SUBROUTINE SCORE-AND-UPDATE 2820 S1 = 0 2830 FOR K = 1 TO 8 2840 I5 = I4(K) 2850 J5 = J4(K) 2860 I6 = I +I5 2870 J6 = J +J5 2880 S3 = 0 2890 IF A(I6,J6) < >T2 THEN 3070 2900 REM LOOP THRU THE RUN 2910 S3 = S3 +1 2920 I6 = I6 +I5 2930 J6 = J6 +J5 2940 IF A(I6,J6) = T1 THEN 2970 2950 IF A(I6,J6) = 0 THEN 3070 2960 GOTO 2910 2970 S1 = S1 +S3 2980 IF U < >1 THEN 3070 2990 REM UPDATE BOARD 3000 I6 = I 3010 J6 = J 3020 FOR K1 = 0 TO S3 3030 A(I6,J6) = T1 3040 I6 = I6 +I5 3050 J6 = J6 +J5 3060 NEXT K1 3070 NEXT K 3080 RETURN 3090 REM SUBROUTINE PRINT-BOARD 3100 INVERSE : PRINT 3110 PRINT " A B C D E F G H" 3120 FOR I = 1 TO 8 3130 PRINT I; 3140 FOR J = 1 TO 8 3150 PRINT " "; 3160 PRINT D$(A(I,J) +1); 3170 NEXT J 3180 PRINT 3190 NEXT I 3200 PRINT 3205 NORMAL 3210 RETURN 3220 END